home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abe.d64 / memory-manager (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  99 lines
  1. 10 PRINT"[147]MEMORY MANAGER"
  2. 20 PRINT"   FOR THE "
  3. 30 PRINT"COMMODORE 64  "
  4. 100 FORX=52736TO53215
  5. 110 READA:CK=CK+A:POKEX,A
  6. 120 NEXT
  7. 130 IFCK<>68936THENPRINT" ERROR IN DATA STATEMENTS":STOP
  8. 140 INPUT"HOW MANY K FOR PROGRAM (6 TO 24)9[157][157][157]";M
  9. 145 IFM<6ORM>25THENPRINT"[147]NUMBER SHOULD BE FROM 6 TO 24":GOTO140
  10. 150 POKE55,0:POKE56,M*4+8
  11. 160 FORX=53224TO53231:POKEX,M*4+8:POKEX+    16,M*4+8:NEXT
  12. 170 FORX=0TO6:POKEX+53217,X*3+1:POKEX+53    233,X*3+4:NEXT
  13. 180 POKE53214,X*3+1:POKE53215,M*4+8
  14. 190 FORX=(M*4+8)*256+1TO(M*4+8)*256+24:POKEX,0:NEXT
  15. 200 PRINT"[147]SYS 53128 TO ACTIVATE"
  16. 210 PRINT"SYS 53144 TO DEACTIVATE"
  17. 220 PRINT"PROGRAM #1 IN USE"
  18. 230 PRINT"SYS53128[145][145][145]"
  19. 52736 DATA169,255,141,180,207,162
  20. 52742 DATA19,189,181,207,32,210
  21. 52748 DATA255,202,16,247,88,76
  22. 52754 DATA49,234,162,255,165,157
  23. 52760 DATA240,247,165,203,201,64
  24. 52766 DATA208,5,141,180,207,240
  25. 52772 DATA236,172,180,207,192,64
  26. 52778 DATA208,229,201,3,208,2
  27. 52784 DATA162,6,201,4,208,2
  28. 52790 DATA162,0,201,5,208,2
  29. 52796 DATA162,2,201,6,208,2
  30. 52802 DATA162,4,224,255,240,201
  31. 52808 DATA173,141,2,240,1,232
  32. 52814 DATA236,221,207,240,190,120
  33. 52820 DATA160,8,132,88,160,0
  34. 52826 DATA132,87,173,222,207,133
  35. 52832 DATA89,173,223,207,133,90
  36. 52838 DATA134,91,162,3,165,90
  37. 52844 DATA201,206,240,144,177,87
  38. 52850 DATA145,89,230,87,208,2
  39. 52856 DATA230,88,230,89,208,2
  40. 52862 DATA230,90,201,0,208,228
  41. 52868 DATA202,208,227,165,1,41
  42. 52874 DATA254,133,1,166,91,189
  43. 52880 DATA240,207,56,253,224,207
  44. 52886 DATA133,87,189,248,207,253
  45. 52892 DATA232,207,133,88,172,221
  46. 52898 DATA207,173,222,207,153,224
  47. 52904 DATA207,173,223,207,153,232
  48. 52910 DATA207,165,89,153,240,207
  49. 52916 DATA165,90,153,248,207,160
  50. 52922 DATA7,185,232,207,221,248
  51. 52928 DATA207,144,44,208,8,185
  52. 52934 DATA224,207,221,240,207,144
  53. 52940 DATA34,185,224,207,56,229
  54. 52946 DATA87,153,224,207,185,232
  55. 52952 DATA207,229,88,153,232,207
  56. 52958 DATA185,240,207,56,229,87
  57. 52964 DATA153,240,207,185,248,207
  58. 52970 DATA229,88,153,248,207,136
  59. 52976 DATA16,201,189,224,207,133
  60. 52982 DATA94,189,232,207,133,95
  61. 52988 DATA169,0,133,87,169,8
  62. 52994 DATA133,88,189,240,207,133
  63. 53000 DATA92,189,248,207,133,93
  64. 53006 DATA160,0,177,94,145,87
  65. 53012 DATA230,87,208,2,230,88
  66. 53018 DATA230,94,208,2,230,95
  67. 53024 DATA165,95,197,93,208,234
  68. 53030 DATA165,94,197,92,208,228
  69. 53036 DATA189,224,207,133,87,189
  70. 53042 DATA232,207,133,88,177,94
  71. 53048 DATA145,87,230,87,208,2
  72. 53054 DATA230,88,230,94,208,2
  73. 53060 DATA230,95,165,95,197,90
  74. 53066 DATA208,234,165,94,197,89
  75. 53072 DATA208,228,172,221,207,185
  76. 53078 DATA240,207,141,222,207,185
  77. 53084 DATA248,207,141,223,207,142
  78. 53090 DATA221,207,165,1,9,1
  79. 53096 DATA133,1,173,221,207,24
  80. 53102 DATA105,49,141,209,207,162
  81. 53108 DATA19,189,201,207,32,210
  82. 53114 DATA255,202,16,247,169,255
  83. 53120 DATA141,180,207,88,76,49
  84. 53126 DATA234,0,120,169,20,141
  85. 53132 DATA20,3,169,206,141,21
  86. 53138 DATA3,88,96,0,0,0
  87. 53144 DATA120,169,49,141,20,3
  88. 53150 DATA169,234,141,21,3,88
  89. 53156 DATA96,0,0,0,0,255
  90. 53162 DATA0,255,0,255,0,255
  91. 53168 DATA0,255,0,255,64,141
  92. 53174 DATA89,82,79,77,69,77
  93. 53180 DATA32,72,71,85,79,78
  94. 53186 DATA69,32,84,79,78,141
  95. 53192 DATA147,141,69,83,85,32
  96. 53198 DATA78,73,32,49,35,32
  97. 53204 DATA77,65,82,71,79,82
  98. 53210 DATA80,141,147,0,21,204
  99.